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autobsud speed selection for a line 

tch to a virtual line 
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uce execution priority for disconnect process 

completion routine for TT activation 
ue a TT completion routine 
play a job's state information 

a system message buffer 
ue "T information to be sent to job 
Id •'^T information string 
to convert internal to ASCII format 



Decode RAD50 value to ASCII 
of job states 
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000000 
000000 



100100 



TITLE TSTTY2 — Auxiliary terminal control overlay 

. ENABL LC 

. ENABL AliA 

. DSABL GBL 

. CSECT TSTTY2 

TSTTY2: . RAD50 /TT2/ ; Overlay region id 

TSTTY2 is an auxiliary terminal control overlay. 

The routines in TSTTY2 could logically go in TSTTY except 

that overlay has already reached the 8Kb size limit. 

Copyright (c) 1980, 1981 > 1982» 1983, 1984, 1985. 
S&tH Computer Systems, Int.. 
Nashville, Tennessee USA 

Global definitions 

. GLOBL AUTSPD, DOSWIT, LINSWT, STTCPL, TTCPL, SPPRED, DDCTLT 

Global references 



; Global defin 
. GLOBL 

i Global refer 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 



i tions 
DOCTLT 

ences 

NMUMB, SNMSHD, SB$LNK, SB*TXT, SB*PNT 
LNPRIM, LMSGBF, TRNSTR, ESC, SPACE, CR 
LUNAME, SYTIMH, SYTIML, LPRGl, LPRG2, LNBLKS 
LNSBLK, LSTATE, LSW, *INCOR, LCPUHI, LCPULO, TKIVAL 
URO, QFREE, GETQ, S*TTSC, EMTMAP, CQ*PA5, LINPNT, DELCHR 
LRTCHR, CVTLC, CQ«RO, S*IOFN, *NOINT, LSW7 
*VBELL, EMTBLK, VALADW, LTTCR, EMTXIT 
CQ*JOB, CQ^RNS, LPRI, CQ*PRI, CP*STD 
CQ*CP, CQ*RTN, QCOMPL, LINNXT 

LABTIM, *RBRK, LSWIO, S600, SETSPD, LMXPRM, S9600, *NABRS 
LSW9, *NOVLN, LSW2, *SUCF, *LOFCF, «NOIN, LSW3, LNPRIM 
LSECPT, FSTSL, LSTSL, INITLN, LPARNT, LSECPT, *VNOTT, LSW 
LBSPRI, VPRILO, VPRIHI, VPRIVR, LPRI, LWINDO, WINSF 
LNMAP, $INIT, WINST, LOTSPC, LOTPNT, LOTBUF, LDTEND 
TRNSTR, FORCEX, OVRHC, PR7, PSW, KPAR6, LTTPAR, INTPRI 
519200, S4S00, S3600, S2400, S1800, S1200, S300, S150, SI 10 



Macro definitions 

. MACRO DISABL 

BIS #PR7, @#PSW 

. ENDM DISABL 

. MACRO ENABL 

BIC INTPRI, ®#PSW 

. ENDM ENABL 



; DISABLE INTERRUPTS 



; ENABLE INTERRUPTS 



. MACRO OCALL ENTADD 
. IF B,ENTADD 

.ERROR ; OCALL without entry address 
. ENDC 
CALL OVRHC 
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WORD 
ENDM 



EMTADD 
OCALL 



The TTMAP and 
terminal chara 
register are p 
UNMAP or UNMAP 
Rl must contai 
are being acce 
The difference 
macros is that 
used from with 
to be running 
The TTMAP and 
used in sectio 



TTMAPX macros are used to map kernel-mode par6 to the 

cter buffer area. The previous contents of par6 map 

ushed on the stack and may be restored by using the 

X macros. 

n the line index number of the line whose buffers 

ssed. 
between the TTMAP-UNMAP macros and the TTMAPX-UNMAPX 
the X~versions are more efficient but may only be 

in interrupt service routines where we are guaranteed 

on the system stack. 

UNMAP versions of the macros must only be 

ns of code where the interrupts are disabled. 



. MACRO 
MOV 
. ENDM 



000000 



Data areas 
MAPHLD: . WORD 



TTMAPX 

LTTPAR(Rl) 

TTMAPX 



e#KPAR6 



. MACRO UNMAP X 

. ENDM UNMAP X 

. MACRO TTMAP 

MOV @#KPAR6> MAPHLD 

MOV LTTPAR<R1), ©#KPAR6 

. ENDM TTMAP 

. MACRO UNMAP 

MOV MAPHLD, @#KPAR6 

. ENDM UNMAP 







i TEMP CELL USED BY TTMAP MACRO 



t 
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SBTTL AUTSPD 



Do autobaud speed selection for a line 



AUTSPD is called when a character is received for a line that is not 
loged on and which is to have autobaud speed selection. 

Inputs: 
R4 = Line index number. 
R5 = Character received. 

Outputs: 
C-flag cleared ==> Start this line now. 



C~flag set 



-=> Do not start this line. 



000004 010146 

000006 010246 

000010 010346 

000012 010401 

000014 042705 177600 



000020 026127 OOOOOOG 000142 
000026 101055 



AUTSPD: 


MOV 


Rl, -<SP) 




MOV 


R2, -(SP) 




MOV 


R3, -(SP) 




MOV 


R4, Rl 




BIC 


#•■^0177, R5 



000030 032761 OOOOOOG 000000(3 

000036 001405 

000040 012700 OOOOOOG 

000044 004737 OOOOOOG 

000050 000436 



000052 012702 000230' 

000056 016103 OOOOOOG 

000062 000303 

000064 042703 177760 

000070 020327 OOOOOOG 

000074 001411 

000076 012702 000256' 

000102 020327 OOOOOOG 

000106 001404 



i Carry line index number in Rl 
iMask character to 7 bits 

Ignore characters that come in too fast 

CMP LABTIM(R1),#9S. ; Should we check this character? 
BHI 10* ;Br if not 

If we received a break (framing error), set the speed to 600 baud 
and get another character for autobaud detection. 

BIT #*RBRK, LSW10(Rl)i Did we receive a break? 

BEQ 6« i Br if not 

MOV #S600, RO ; Select 600 baud 

CALL SETSPD J Set line speed 

BR 8* ; Don't start line yet 

See if we should search speed table 1 or 2 

6$: MOV #ASTBL1.R2 j Assume we are running at 9600 baud 

Get current line speed 
Get to low-order byte 
Clear all but speed code 
Is speed currently 9600? 
Br if yes 

Assume speed is 600 baud 
Is speed currently 600? 
Br if yes 

Current speed is neither 9600 baud nor 600 baud. 

If character is carriage return, assume current speed is correct. 



MOV 


#ASTBL1,R2 


MOV 


LMXPRM(R1),R3 


SWAB 


R3 


BIC 


#-X17, R3 


CMP 


R3, #39600 


BEO 


1* 


MOV 


#ASTBL2, R2 


CMP 


R3, #S600 


BE(3 


1$ 



000110 120527 000015 
000114 001427 
000116 000407 



000120 105762 000001 
000124 001404 
000126 120522 



CMPB 

BEQ 

BR 



R5, #15 

11* 

5* 



; Is character carriage return? 

; Br if yes — speed must be correct 

i Set speed to 9600 baud 



See if we can find the received character in the autobaud table 



1*: 



TSTB 

BEQ 

CMPB 



1(R2) 

5* 

R5, (R2) + 



i Have we reached the end of the table? 

; Br if at end of table 

J Does received char match this table entry? 
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AUTSPD ■ 
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000130 001416 
000132 105722 
000134 000771 



BEQ 


2* 


TSTB 


<R2) + 


BR 


1* 



j Br if yes — We found the speed 
iSkip over speed code for this entry 
; Loop if more entries to check 



We did not find a matching character in this table. 
Reset speed to 9600 baud. 



000136 012700 OOOOOOG 
000142 004737 OOOOOOG 



5*: 



MOV 
CALL 



#59600. RO 
SETSPD 



; Select 9600 baud 
i Set the line speed 



We could not identify this character. 

Start timer which uiili reset the baud rate to 9600 after 10 seconds. 



000146 012761 000144 OOOOOOG 8$: 
000154 052761 OOOOOOG OOOOOOG 



000162 000261 
000164 000412 



000166 112200 

000170 004737 OOOOOOG 



10*: 



MOV #100. . LABTIM<Rl)i Start autobaud timer for this line 

BIS #*NABRS. LSW9<R1); Reset speed to 9600 baud after time interval 

SEC i Say not to start the line this time 

BR 9* ;Finished 



We found the correct speed entry for this line 



2$: 



MOVB 
CALL 



(R2)+, RO 
SETSPD 



J Get the correct speed code 
iSet the line speed 



Set a short timer to cause us to ignore any garbage characters 
that may be received after the autobaud character. 



000174 012761 000002 OOOOOOG 11*: 
000202 042761 OOOOOOG OOOOOOG 
000210 000241 



MOV 
B.IC 
CLC 

Finished 



000212 042761 OOOOOOG OOOOOOG 9*: 
000220 012603 
000222 012602 



0002 



012601 



000226 000207 



BIC 
MOV 
MOV 
MOV 
RETURN 



#2. » LABTIM<R1 ) ; Ignore input chars for 0.2 seconds 
#*NABRS> LSW9<R1 ); Clear need-reset flag 

/Signal to start the line 



#*RBRK, LSWIO(RI); Clear break-received flag for line 
<SP>+, R3 
<SP)+, R2 
<SP)+, Rl 



TSTTY2 - 


— Auxil 


iary te 


AUTSPD - 


— Do au 


tobaud 


1 
2 






3 






4 




000230 


5 


000230 


177 


6 


000232 


176 


7 


000234 


175 


a 


000236 


172 


9 


000240 


171 


10 


000242 


162 


11 


000244 


015 


12 


000246 


146 


13 






14 






15 


000250 


170 


16 






17 


000252 


000 


18 


000254 


000 


19 




000026 


20 






21 






22 






23 




000256 


24 


000256 


177 


25 


000260 


176 


26 


000262 


172 


27 


000264 


171 


28 


000266 


170 


29 


000270 


162 


30 






31 


000272 


146 


32 






33 


000274 


160 


34 


000276 


140 


35 


000300 


000 


36 




000024 
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OOOG 
OOOG 
OOOG 
OOOG 
OOOG 
OOOG 
OOOG 
OOOG 



OOOG 

OOOG 
000 



OOOG 
OOOG 
OOOG 
OOOG 
OOOG 
OOOG 

OOOG 

OOOG 
OOOG 
000 



; Table 


to indicate speed 


ABITBL = 


= . -TSTTY2 


ASTBL 1 : 


. BYTE 


177, SI 9200 




. BYTE 


176,319200 




BYTE 


175i S19200 




BYTE 


172,519200 




BYTE 


171,319200 




BYTE 


162, 31 9200 




BYTE 


015,39600 




BYTE 


146, 34800 


} } 


BYTE 


014, 33600 


i i 


BYTE 


176,32400 




BYTE 


170,32400 


f J 


BYTE 


160,31800 




BYTE 


000, SI 200 




BYTE 


0,0 


ABILEN = 


= . -ASTBL 1 


i Table 


to ind 


icate speed 


AB2TBL = 


= . -TSTTY2 


ASTBL2: 


BYTE 


177,32400 




BYTE 


176, S1200 




BYTE 


172,31200 




BYTE 


171,31200 




BYTE 


170, 31200 




BYTE 


162,31200 


> i 


BYTE 


015,3600 




BYTE 


146,3300 


i J 


BYTE 


170,3150 




BYTE 


160, 3110 




BYTE 


140, 3110 




BYTE 


0, 


AB2LEN = 


= . -AST 


BL2 



when we are receiving at 9600 baud 



at 600 baud 



TSTTY2 - 


— Auxil 


iary terminal co MACRO V 


DOSWIT - 


— Suite 


h to a virtual line 


1 
2 








3 








4 








5 








6 








7 








8 








9 


000302 


010246 




10 


000304 


010346 




11 


000306 


010446 




12 








13 








14 








15 


000310 


032761 


OOOOOOG OOOOOOG 


16 


000316 


001060 




17 


000320 


032761 


OOOOOOC OOOOOOG 


18 


000326 


001054 




19 


000330 


032761 


OOOOOOG OOOOOOG 


20 


000336 


001050 




21 








22 








23 








24 


000340 


005705 




25 


000342 


001444 




26 








27 








28 








29 








30 


000344 


016102 


OOOOOOG 


31 


000350 


016203 


OOOOOOG 


32 


000354 


060503 




33 


000356 


105743 




34 


000360 


001035 




35 








36 








37 








38 








39 








40 


000362 


012703 


OOOOOOG 


41 


000366 


020327 


OOOOOOG 


42 


000372 


101032 




43 


000374 


005763 


OOOOOOG 


44 


000400 


001403 




45 


000402 


062703 


000002 


46 


000406 


000767 




47 








48 








49 








50 








51 








52 


000410 


010146 




53 


000412 


010301 




54 


000414 


005000 




55 


000416 






56 


000424 


012601 




57 


000426 


103414 
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. SBTTL DOSWIT — Switch to a virtual line 

DOSWIT is called when we receive a control-W-dig i t sequence. 

Inputs: 
Rl = Current virtual line index number. 
R5 = Binary value of virtual line selected. 



DOSWIT: MOV 
MOV 
MOV 



3$: 



R2, -<SP> 
R3, -<SP) 
R4. -<SP) 



See if this job is allowed to use virtual lines 

BIT #*NOVLN, LSW2(Rl)i Can job use virtual lines? 

BNE 20* iBr if not 

BIT #<«SUCF!*LOFCF>> LSW9<R1 )i Doing logon/logoff processing? 

BNE 20* ;Br if yes 

BIT #*NOIN, LSW3<R1) J Doing logon/logoff processing? 

BNE 20* iBr if yes — don't allow line switching 

Determine if we are switching to a virtual line or back to the primary 



TST 
BEQ 



R5 
10* 



> Switching to primary line? 

iBr if switching to primary line 



We are switching to a virtual line 
See if line has been allocated yet. 



MOV 


LNPRIM<R1).R2 


MOV 


LSECPT<R2),R3 


ADD 


R5, R3 


TSTB 


-<R3> 


BNE 


10* 



; Get primary line # 

i Point to table of secondary line numbers 

iPoint to entry for selected line 

iHas this virtual line been allocated yet? 

i Br if yes 



Request to switch to a virtual line which has not been 

allocated yet. 

See if we can find a free virtual line. 



Get # of first virtual line 

Checked all? 

Br if yes 

Is this line available? 

Br if yes 

Get index to next virtual line 



We have found a free virtual line. 
It's index is in R3. 
Initialize it. 



MOV 


#FSTSL, R3 


CMP 


R3, #LSTSL 


BHI 


20* 


TST 


LNPRIM<R3) 


BEG 


4* 


ADD 


#2, R3 


BR 


3* 



4*: 



MOV 


R1,-(SP) 


MOV 


R3, Rl 


CLR 


RO 


OCALL 


INITLN 


MOV 


<SP)+, Rl 


BCS 


20* 



Save current line number 

Get new virtual line number 

No secondary start-up command file 

Initialize the line 

Get back original line number 

Br if unable to initiate new line 
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58 000430 

59 000434 

60 000440 

61 000444 

62 000446 

63 000450 
64 

65 

66 

67 000454 

68 

69 

70 

71 000460 

72 000462 

73 000464 

74 000466 



016102 
010263 
016204 
060504 
1 1 0344 
010263 



OOOOOOG 
OOOOOOG 
0000000 



OOOOOOG 



004737 000470 ' 



012604 
012603 
012602 
000207 



MOV 
MOV 
MOV 
ADD 

MOVB 
MOV 



LNPRIM<R1),R2 
R2, LPARNT(R3) 
LSECPT(R2),R4 
R5, R4 
R3, -(R4) 



; Get primary line number 

i Say primary job is parent of job started 

; Point to secondary line # table 

> Point to desired entry 

i Associate virtual line with primary 

i Set primary line number for virtual line 



We are switching to a virtual line that has been initialized 
10*: CALL LINSWT i Set up line number prompt 

Finished 
K)«: 



MOV 


<SP>+, R4 


MOV 


(SP)+, R3 


MOV 

«-V t— "P* I 1 1»% k 


(SP)+, R2 



TSTTY2 
LINSWT 
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SBTTL LINSWT 



Switch to a virtual line 



LINSWT is called to switch association between a 
physical line and one of the virtual lines 
associated with the user. 

Inputs: 
Rl = Current virtual line index number 
R5 = Number of the virtual to be switched to <0-MAXSEC) 



000470 010146 

000472 010246 

000474 010346 

000476 010446 

000500 010546 



000502 052761 OOOOOOG OOOOOOG 



000510 004737 000776' 



000514 042761 OOOOOOG OOOOOOG 



000522 016102 OOOOOOG 

000526 001403 

000530 



000536 016102 OOOOOOG 

000542 010201 

000544 005705 

000546 001404 

000550 016201 OOOOOOG 

000554 060501 

000556 114101 

000560 010162 OOOOOOG 

000564 032761 OOOOOOG OOOOOOG 

000572 001470 



000574 016102 OOOOOOG 

000600 00 1 404 

000602 

000610 000447 



LINSWT: MOV 


R 1 , - < SP ) 


MOV 


R2. -(SP) 


MOV 


R3, -<SP) 


MOV 


R4, -<SP) 


MOV 


R5, -<SP) 


; Set flag 


saying job n 



BIS #*VNOTT» LSW<R1) i Say not connected to terminal 

Reduce execution priority of job we are disconnecting from 

CALL SPPRED ; Reduce execution priority of discon proc 

Clear flag that says bell has been rung for virtual line wait 
condition for line we are switching away from. 



BIC 



#*VBELL> LSW9(R1 )J Say we need to ring bell for wait condition 



If job we are switching away from has an active display window^i 
tell the display window manager. 



MOV LWIND0(R1).R2 
BEQ 10* 
OCALL WINSF 



; Does this job have an active window? 

; Br if not 

; Say we are switching from this job 



10* 



Set info in virtual line tables 

; GET PRIMARY LINE # 



MOV 


LNPRIM(R1);R2 


MOV 


R2, Rl 


TST 


R5 


BEQ 


1* 


MOV 


LSECPT<R2),Ri 


ADD 


R5, Rl 


MOVB 


-(R1),R1 


MOV 


R1/LNMAP<R2) 


BIT 


#*INIT, LSW<R1) 


BEQ 


6* 



J DOES HE WANT PRIMARY LINE? 
i BRANCH IF YES 
; POINT TO SEC LINE # TABLE 
i POINT TO DISIRED ENTRY 
i GET VIRTUAL LINE # 
1*: MOV R1,LNMAP<R2) i SWITCH LINE CONTROL TO VIRTUAL LINE 

; HAS THIS LINE BEEN INITIALIZED? 
j BR IF NOT 

If the line we are switching to has a display window active^ 

call window manager to let it know job has reconnected to terminal. 

i Display window active for new line? 

; Br if not 

J Tell window manager about reconnect 



MOV 


LWIND0<R1),R2 


BEQ 


S* 


OCALL 


WINST 


BR 


9* 



TSTTY2 
L.TNSWT - 



Aux i 1 iary 
- Switch to 



terminal co MACRO V05. 05 
a virtual line 
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58 
59 
60 
61 
62 

63 000612 

64 000620 

65 000624 

66 000630 

67 000632 

68 000636 

69 000642 

70 000646 

71 000652 

72 000656 

73 000672 

74 000676 

75 000700 

76 000704 

77 000706 

78 000710 

79 000714 

80 000722 
81 

82 
83 

84 000730 

85 000736 

86 000744 

87 000750 
88 

89 
90 

91 000754 

92 000756 

93 000760 

94 000762 

95 000764 

96 000766 
97 

98 000770 
000773 
99 



012704 
026104 
002434 
160461 
012703 
062705 
110537 
016102 

020261 
101002 
016102 
1 1 2342 
077407 
010261 



042761 
116161 
004777 
004737 



012605 
012604 
012603 
012602 
012601 
000207 



012 
043 



The line u>e are switching to does not have a display windoui active. 
At this point Rl contains the new line index #. 
Try to insert CR-LF-#->-CR-LF at head of 
new line's output buffer. 



8*: 



000006 
OOOOOOG 

0000000 
000770 ' 
000060 
000773 ' 
0000000 

0000000 

OOOOOOG 

OOOOOOG 



5*: 



4$: 



3«: 



DISABL 

MOV 

CMP 

BLT 

SUB 

MOV 

ADD 

MOVB 

MOV 

TTMAP 

CMP 

BHI 

MOV 

MOVB 

SOB 

MOV 

UNMAP 

ENABL 



#6, R4 

L0TSPC(R1),R4 

3* 

R4, L0TSPC<R1) 

#NLMSG, R3 

#'0, R5 

R5, <NLMSG+3> 

L0TPNT(R1),R2 

R2, LOTBUF(Rl) 

4* 

LOTEND<Ri >,R2 

(R3)+, -<R2) 

R4, 5* 

R2, L0TPNT<R1) 



*■«• DISABLE #* 

# OF CHARS WE WANT TO INSERT 

ROOM FOR OUT CHARS? 

IF NOT THEN SKIP INSERT 

CLAIM THE SPACE 

POINT TO THE MESSAGE 

CONVERT VIRTUAL # TO ASCII CHAR 

MOVE INTO MESSAGE 

POINT TO HEAD OF OUTPUT LIST 

MAP TO TT BUFFER AREA 

AT HEAD OF BUFFER? 

BRANCH IF NOT 

WRAP AROUND TO END 

MOVE MESSAGE TO USER'S BUFFER 

LOOP IF MORE TO DO 

UPDATE CHARACTER POINTER 

RESTORE MAPPING 

** ENABLE *•* 



Set up info for job we are switching to 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



9*: 



6*: 



BIC 
MOVB 
CALL 
CALL 

Finished 

MOV 
MOV 
MOV 
MOV 
MOV 



#*VN0TT>LSW<R1) ; SAY RECONNECTED TO TERMINAL 
LBSPRI<Rl),LPRI<Rl)i SET CURRENT PRI = BASE PRI 
©TRNSTR i TRY TO START PRINTING 

FDRCEX i FORCE EXECUTION OF NEW LINE 



<SP)+, R5 
<SP)+, R4 
<SP)+, R3 
<SP)+, R2 
(SP)+, Rl 



RETURN 



015 
012 



076 
015 



NLMSG: 



ASCI I <12><15>/>#/<12:><15: 
EVEN 



I 
I 
f 
< 

i 

( 

€ 

€ 

i 
i 
€ 

i 

i 
i 
I 
i 
4 
4 



2 - 


— Auxil 


iary terminal co 


D - 

1 
2 
3 


— Reduce execut 


ion prio 








4 








5 








6 








7 








8 








9 


000776 


010246 




10 


001000 


116102 


ooooooe 


11 


001004 


120237 


OOOOOOG 


12 


001010 


101414 




13 


001012 


120237 


OOOOOOG 


14 


001016 


103011 




15 


001020 


113700 


0000000 


16 


001024 


160002 




17 


001026 


120237 


0000000 


18 


001032 


003003 




19 


001034 


113702 


0000000 


20 


001040 


005202 




21 


001042 


110261 


OOOOOOG 


22 








23 








24 








25 


001046 


012602 




26 


001050 


000207 
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. SBTTL SPPRED — Reduce execution priority for disconnect process 

This routine is called to reduce the execution priority of a subprocess 
as it disconnects from terminal control. 

Inputs: 
Rl = Job index of process whose priority is to be reduced 



GET BASE PRIORITY FDR JOB 

IS THIS A FIXED PRIORITY JOB? 

BR IF YES 

REAL-TIME JOB? 

BR IF YES 

GET AMT TO REDUCE FOR DISCONNECTED JOBS 

REDUCE FOR DISCONNECTED JOB 

DID PRIORITY GO OUT OF NORMAL RANGE? 

BR IF NOT 

GET LOWEST NORMAL PRIORITY 

; SET CURRENT PRIORITY FOR JOB 



SPPRED: 


MOV 


R2, -<SP) 




MOVE 


LBSPRI<R1),R2 




CMPB 


R2, VPRILO 




BLOS 


7* i 




CMPB 


R2. VPRIHI i 




BHIS 


7* i 




MOVB 


VPRIVR,RO •> 




SUB 


RO, R2 i 




CMPB 


R2, VPRILO i 




BGT 


7« i 




MOVB 


VPRILO, R2 i 




INC 


R2 


7*: 


MOVB 


R2, LPRKRl) ; 


> Fini 


shed 






MOV 
RETURN 


<SP)+, R2 



c 

i 
I 
I 
I 
< 
i 
i 
€ 
€ 
( 
C 

c 

€ 

I 

i 
i 

€ 

4 
i 
i 



TSTTY2 - 
STTCPL - 

1 
2 
3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
2S 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
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00105^ 



001052 
001054 
001060 
001064 
001066 
001074 
001100 



001104 
001110 
001112 



001116 
001122 
001124 
001130 
001136 
001144 
001146 
001154 
001162 
001170 
001176 
001204 



001210 
001212 



. SBTTL STTCPL 



010102 
005037 
016201 
001407 
016137 
005062 
004737 



013700 
001442 
004737 



004737 
010104 
110264 
112764 
032762 
001403 
1 1 2764 
116264 
112764 
013764 
013764 
010462 



010201 
004737 



0000000 
0000000 

OOOOOOG 
OOOOOOG 
OOOOOOG 



000002G 
OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 
000002G 
OOOOOOG 
OOOOOOG 



OOOOOOG 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



Set completion routine for TT activation 



Process the EMT that connects a completion routine to TT input 
character reception. 

EMT argument block: 

. BYTE 1, 133 

.WORD comp letion. routine 

Inputs: 
Rl = Job index number 

STTCPL: 

Cancel any existing completion routine connection. 

; Save job index number in R2 
; Assume no completion routine noui 
/Get addr of completion Q element 
; Br if none 
CQ*RTN<R1 )> URO ; Return old compl rtn address in RO 

; Say no completion Q element now 
/Release the queue element 

See if the address of a new completion routine was specified 



MOV 


R1,R2 


CLR 


URO 


MOV 


LTTCR(R2)/R1 


BEQ 


1* 


MOV 


CQ*RTN<R1),U 


CLR 


LTTCR<R2) 


CALL 


QFREE 



1«: MOV EMTBLK+2, RO 
BEQ 9* 
CALL VALADW 



/Did he specify a compl rtn address? 

/Br if not 

/Make sure compl routine addr is valid 



Get a queue element and set up as a completion queue element 

CALL GETQ /Get a queue element (address in Rl) 

MOV R1/R4 /Get address of queue element 

MOVE R2, CQ*JDB(R4) /Set job number in Q element 

MOVE #S*TTSC/CQ*RNS<R4); Set execution state for job 

BIT #*NOINT/ LSW7<R2)/ Is job running non-interac tively? 

BEQ 2* ; Br if not 

MOVE #S*IOFN/ CQ*RNS<R4); Set non-interactive execution state 

?*: MOVE LPRI(R2)/ CQ*PRI<R4); Set execution priority 

MOVE #CP*STD/ CQ*CP<R4); Set compl routine class priority 

MOV EMTBLK+2/ CQ*RTN(R4)/ Set address of compl routine 

MOV EMTMAP/ CQ$PA5(R4)/ Set EMT entry mapping for par 5 

MOV R4/LTTCR(R2) /Set address of queue element 

If there are any characters pending noui/ trigger a completion 
routine immediately. 



001222 



001216 000137 OOOOOOG 



MOV 
CALL 

Finished 

9*: JMP 



R2/R1 
TTCPL 



EMTXIT 



;Get job index # to Rl for TTCPL 
/See if we need to do compl rtn now 



i 
< 

i 

i 

i 
i 
i 

c 
( 
i 

€ 
t 

f 
C 
i 

c 
< 

4 



( 



TSTTY2 - 


— Auxil 


iary terminal co 


TTCPL - 

1 
2 
3 


— Queue 


a TT completiom 








4 








5 








6 








7 








8 








9 








10 


001222 


010246 




11 


001224 


010446 




12 








13 








14 








15 


001226 






16 


001234 


016104 


0000000 


17 


001240 


001434 




18 


001242 


016102 


0000000 


19 


001246 


020261 


OOOOOOG 


20 


001252 


001427 




21 


001254 


005061 


0000000 


22 


001260 






23 








24 








25 








26 


001266 






27 


001274 


103414 




28 








29 








30 








31 


001276 


005061 


OOOOOOG 


32 


001302 


042700 


177400 


33 


001306 






34 








35 








36 








37 


001314 


010064 


OOOOOOG 


38 


001320 


004737 


OOOOOOG 


39 


001324 


000402 




40 








41 








42 








43 








44 


001326 


010461 


OOOOOOG 


45 








46 








47 








48 


001332 






49 


001340 


012604 




50 


001342 


012602 




51 


001344 


000207 
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routine 



. SBTTL TTCPL 



Queue a TT completion routine 



Check to see if there are any input characters pending and the job 
wants a completion routine executed for input characters. 
If so, queue the completion request. 



Inputs: 
Rl = Job index number 



TTCPL: 



MOV 
MOV 



R2, -(SP) 
R4, -<SP) 



See if job want completion for character input 



DISABL 

MOV 

13EQ 

MOV 

CMP 

BEQ 

CLR 

ENABL 



LTTCR(R1)> R4 

9* 

LINPNT<R1 ), R2 

R2, LIN,MXT(R1 ) 

9« 

LTTCR<R1) 



*«• Disable interrupts ** 
Does job want TT input compl routine? 
Br if not 

Get pointer to next char to get 
Are there any pending input chars? 
Br if not 

Say we are using completion routine 
i ** Enable interrupts ** 



Get next pending input character 



OCALL 
BCS 



DELCHR 
8* 



We cjot a character 

CLR LRTCHR(R1> 
BIC #"C<377>i RO 
OCALL CVTLC 

Queue the completion routine 

MOV RO, CQ$R0<R4) 
CALL QCOMPL 
BR 9* 



iGet next char from input buffer 
; Br if no chars available 



i Say no read time-out pending 

i Clear all but low-order 8 bits of char 

; Possibly convert to upper case 



;Pas5 char to compl rtn in RO 
jQueue the completion routine 



No characters available. 

Leave the completion request pending. 



8$: MOV 


R4, LTTCR 


; Finished 




9*: ENABL 




MOV 


<SP)+, R4 


MOV 


(SP)+, R2 


RETURN 





Say compl request still pending 



i ** Make sure interrupts are enabled ** 



TSTTY2 

DOCTLT - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 
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001346 
001346 
001350 
001354 
001356 
001360 
001364 
001370 
001372 
001376 
001400 



. SBTTL DOCTLT — Display a job's state information 

This routine is invoked when a job types '^T. The job does not 
have to be resident. The format of the display is: 



<CR> 

job number 
job name 
wall time 
program name 
job size 
state 
CPU time 



J in case the cursor is not at the left of the screen 

i virtual job number <may be secondary line) 

; LUNAME 

;SYTIMH, SYTIML 

; LPRG1,LPRG2 

; LNBLKS+LNSBLK in Kb 

J LSTATE 

; LCPUHI,LCPULO 



Inputs: 

Rl contains job index 



DOCTLT: 



010246 
004737 
103410 
010246 
016202 
004737 
012602 
004737 
012602 
000207 



001402 



OOOOOOG 
001572' 

001474' 



9«: 



MOV R2, -<SP) 

CALL GTSMBF i Try to get a system message buffer (ptr in R2) 

BCS 9* i Just ignore '"T if no message buffer available 

MOV R2/-<SP) ; Save message ptr 

MOV SB«PNT<R2),R2 ; Point to text buffer 

CALL BLDSTR i Build the output string directly into message buffer 

MOV <SP)+, R2 ; Restore message ptr 

CALL QCTMSG > Queue the '-T message for display 

MOV (SP)+, R2 

RETURN 



TSTTY2 
GTSMBF 
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— Get a system message buffer 



I 

c 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IB 

19 

20 

21 

22 



25 
26 
27 
2o 
29 
30 
31 
32 



. SBTTL GTSMBF — Get a system message buffer 



Get a free system message buffer block. If none are available* 
return with carry set. 



001402 

001410 005737 OOOOOOG 

001414 001422 

001416 013702 OOOOOOG 

001422 001417 



001424 005337 OOOOOOG 

001430 016237 OOOOOOG OOOOOOG 

001436 

001444 010246 

001446 062716 OOOOOOG 

001452 012662 OOOOOOG 

001456 000241 

001460 000404 



Outputs: 
R2 

GTSMBF: DISABL 
TST 
BEQ 
MOV 
BEQ 



ptr to system message block 



NMUMB 
8* 

SNMSHD, R2 
8$ 



*#■«• DISABLE *«■* 
Are there any available? 
If not* return uiith error 
Point to first free buffer block 
If end of list* return with error 



We have a free system message buffer. Unlink from chain. 



DEC 
MOV 
ENABL 

MOV 
ADD 
MOV 
CLC 
BR 



NMUMB ; i 

SB*LNK < R2 ) * SNMSHD 



One less available 
J ; Remove from free list 
*** ENABLE *** 



R2*-<SP) jCopy buffer block ptr 
#SB*TXT* <SP) ; Point to text area 
<SP)+, SB*PNT<R2) ; Init text pointer 

; No errors 
9* > return 



001462 

001470 000261 

001472 000207 



8*: 



9$: 



No free message buffers. 

ENABL 
SEC 

RETURN 



i i i *** ENABLE *** 
i Signal error 



TSTTY2 - 


— Auxil 


iary terminal co 


QCTMSG " 

1 
2 
3 


— Queue 


•■■^T information 








4 








5 








6 








7 


001474 


010046 




8 


001476 


010146 




9 








10 


001500 






11 


001506 


016101 


OOOOOOG 


12 


001512 


016100 


OOOOOOG 


13 


001516 


001411 




14 


001520 


005760 


OOOOOOG 


15 


001524 


001403 




16 


001526 


016000 


OOOOOOG 


17 


001532 


000772 




18 


001534 


010260 


OOOOOOG 


19 


001540 


000402 




20 


001542 


010261 


OOOOOOG 


21 


001546 


005062 


OOOOOOG 


22 


001552 






23 








24 








25 








26 


001560 


012601 




27 


001562 


004777 


OOOOOOG 


28 








29 


001566 


012600 




30 


001570 


000207 
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to be sent to job 



SBTTL QCTMSG 



Queue '-T information to be sent to job 



Inputs: 

Rl index of job to receive message < same as sender) 
R2 address of system message buffer 



QCTMSG: 


MOV 


RO, ~<SP) 




MOV 


Rl, -<SP) 


f 


D.TSABL 






MOV 


LNPRIM(R1),R1 




MOV 


LMSGBF<R1), RO 




QEQ 


3* 


1*: 


TST 


SB*LNK<RO) 




BEQ 


2* 




MOV 


SB*LNK<RO),RO 




BR 


1* 


2*: 


MOV 


R2, SB*LNK(RO) 




BR 


4* 


3«: 


MOV 


R2, LMSGBF<R1) 


4*: 


CLR 


SB*LNK<R2) 




ENABL 





; Save job index, need to work on primary 



*** DISABLE «*«■ 
Get physical line index 
Get ptr to head of job's message list 
Br if no pending messages for job 
Is this the end of the list? 
Br if yes 

If not, point to next message 
And keep searching for end 
Add current message to end of list 

Say current message is first 
Say we are at end of list 
#*« ENABLE «*■«■ 



Try to start transmission to the line 



MOV 
CALL 

MOV 
RETURN 



(SP)+, Rl 
©TRNSTR 

(SP)+, RO 



jRestore index of job which hit '^T 
; Initiate transmission 



TSTTY2 
BLDSTR - 

1 
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3 
4 
5 
6 
7 
8 
9 

10 001572 

11 001574 

12 001576 

13 001600 
14 

15 001602 

16 

17 

IS 

19 001606 

20 001610 

21 001612 

22 001614 

23 001620 

24 001624 
25 

26 
27 

28 001630 

29 001632 

30 001634 

31 001640 

32 001644 

33 001650 

34 001652 

35 001654 

36 001660 

37 001662 

38 001664 
39 

40 001666 

41 001670 

42 001672 

43 001676 

44 001700 

45 001702 

46 001706 

47 001712 
48 

49 
50 

51 001714 

52 001720 

53 001724 

54 001730 

55 001736 
56 

57 



010046 
010346 
010446 
010546 

112722 0000000 



010100 
006200 
005003 
004737 



112722 
112722 



010246 
010103 
070327 
062703 
012704 
112300 
003405 
020027 
103401 
110022 
077407 

020216 
101404 
124227 
001773 
005202 
112722 
1 1 2722 
005726 



013704 
013705 
004737 
112762 
112762 



002210' 
OOOOOOG 
OOOOOOG 



000006 

OOOOOOG 

000014 



OOOOOOG 



OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
002310' 
OOOOOOG 
OOOOOOG 



SBTTL BLDSTR 



Build '"•T information string 



Create "T information in ASCII format into message buffer using 
system table information. 



Inputs: 

Rl job index 

R2 ptr to beginning of text buffer 



BLDSTR. 


MOV 


RO, -(SP) 




MOV 


R3, ~(SP) 




MOV 


R4, -(SP) 




MOV 


R5, -(SP) 




MOVB 


#CR, (R2)+ 


i vJob 


number 






MOV 


Rl^RO 




ASR 


RO 




CLR 


R3 




CALL 


EDTDEC 




MOVB 


tSPACE, (R2) + 




MOVB 


#SPACE, (R2) + 


; Job 


name 






MOV 


R2, -(SP) 




MOV 


R1,R3 




MUL 


#6. , R3 




ADD 


#LUNAME. R3 




MOV 


#12. ,R4 


1*: 


MOVB 


(R3)+>R0 




BLE 


14* 




CMP 


RO, #ESC 




BLO 


12* 




MOVB 


R0> (R2) + 


12*: 


SOB 


R4, 1* 


; Nou) 


remove 


trailing space 


14*: 


CMP 


R2, (SP) 




BLOS 


15* 




CMPB 


-(R2), #SPACE 




BEQ 


14* 




INC 


R2 


15*: 


MOVB 


#SPACE, (R2) + 




MOVB 


#SPACE, (R2) + 




TST 


(SP) + 



Wall clock time 



177776 
177777 



MOV 

MOV 

CALL 

MOVB 

MOVB 

Program name 



SYTIMH, R4 
SYTIML, R5 
EDTTIM 

#SPACE, -2(R2) 
#SPACEi -1(R2) 



; In case cursor not at left margin 



i Get job index 
i Convert to job number 
; No filler chars needed 
; Stuff into output buffer 



Save ptr to beginning of name 

Copy job index 

Convert to offset into LUNAME table 

Convert to ptr to name of this job 

Get max string length 

Get next char 

Terminate on or 200 

Disallow most punctuation (allow ESC) 

;Copy printable chars to output 
i Loop up to 12 times 

; Backed past start of name? 

; Br if so 

i Was prev char space? 

i If 50» keep checking 

; Leave last non-space char intact 



i Discard saved string ptr 



Get high order time (ticks) 
And louj order time 
Stuff time into buffer 
Copy space over . 
And over tenths 






TSTTY2 - 
BL.DSTR - 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 
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001744 
001750 
001754 
001760 
001762 
001766 
001774 
001776 
002004 
002006 
002012 
002016 



002016 
002022 
002026 
002030 
002032 
002034 
002040 
002044 
002050 
002054 



002060 
002064 
002070 
002072 
002074 
002076 
002102 
002104 
002106 
002114 
002116 
002122 
002124 
002126 
002130 
002136 



112 
113 
114 



002142 
002146 
002152 
002156 
002162 
002166 
002172 



016100 
004737 
016100 
001402 
004737 
126227 
001410 
126227 
001402 
112722 
112722 



016100 
066100 
005200 
006200 
005003 
004737 
112722 
1 1 2722 
1 1 2722 
112722 



016100 
020027 
101401 
005000 
006300 
016000 
1 1 2022 
003376 
032761 
001005 
012703 
005302 
112322 
003376 
112762 
112722 



1 1 2722 

'22 
'22 
1 1 2722 
016104 
016105 
004737 



OOOOOOG 
002450 ' 
OOOOOOG 

002450 ' 

177776 OOOOOOG 2*: 

177777 OOOOOOG 



OOOOOOG 
OOOOOOG 



21*: 
22*: 



MOV 

CALL 

MOV 

BEQ 

CALL 

CMPB 

BEQ 

CMPB 

BEQ 

MOVE 

MOVE 



OOOOOOG 
OOOOOOG 



002210' 

000113 

000142 

OOOOOOG 

OOOOOOG 



OOOOOOG 
000036 



002566 ' 

OOOOOOG OOOOOOG 
003326 ' 



OOOOOOG 177777 
OOOOOOG 



000103 

000120 

000125 

000075 

OOOOOOG 

OOOOOOG 

002310' 



Job size 

MOV 

ADD 

INC 

ASR 

CLR 

CALL 

MOVE 

MOVE 

MOVE 

MOVE 

Job state 

MOV 
CMP 
ELOS 
CLR 

3*: ASL 
MOV 

32*: MOVE 
BGT 
BIT 
BNE 
MOV 
DEC 

33*: MOVE 
BGT 

34*: MOVE 
MOVE 

i CPU time 

MOVE 

MOVE 

MOVE 

MOVE 

MOV 

MOV 

CALL 



LPRGKRl), RO 

EDTR50 

LPRG2<R1), RO 

2* 

EDTR50 

-2(R2)>#SPACE 

22* 

-1(R2),#SPACE 

21* 

#SPACE, (R2) + 

#SPACE, <R2)-t- 



LNBLKS<R1),R0 

LNSBLK<Ri>,R0 

RO 

RO 

R3 

EDTDEC 

#'K, <R2) + 

#'b, <R2> + 

tSPACE, <R2)+ 

#SPACE, <R2)+ 



LSTATE<R1>, RO 

RO, #MXSTAT 

3* 

RO 

RO 

SNTAEL(RO),RO 

<R0)+, <R2)+ 

32* 

#*INC0R,LSW<R1) 

34* 

#SWPTXT, R3 

R2 

(R3>+, <R2) + 

33* 

#SPACE, -KR2) 

#SPACE, <R2)+ 



#'C, <R2) + 
#'P, (R2) + 
#'U, (R2) + 
#'=, (R2) + 
LCPUHI(R1),R4 
LCPULO(Rl), R5 
EDTTIM 



J Get program name 1~3 

i Stuff into output 

} Get program name 4-6 

; Br if less than 4 char name 

; Two spaces already? 
;Don't add any if so 
i Last char spaceT' 
; Only need 1 if so 



Get static job size <in pages) 

And add PLAS region size 

Round up to nearest KB 

Convert pages to Kb 

No filler chars 

Stuff size in Kb into output 

Append "Kb" 



Get job state 
Last state uie knotu about 
Br if in known state space 
Else make it unknown 
Convert to state index 
Get ptr to state name string 
Copy state name string to output 
or 200 terminates 
In memory now? 
Br if so 

Job is swapped out, point to swap text 
Point back to trailing NUL 
and append 

Copy space over trailing nul 



;Put "CPU=" into output buffer 



;Get job cpu time in ticks 
; Move time into output buffer 
Done. NOTE: cursor is left at end of -^T string. 
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115 
116 
117 
118 
119 
120 



002176 
002200 
002202 
002204 
002206 



012605 
012604 
012603 
012600 
000207 



MOV 


<SP>+, 


R5 


MOV 


(SP)+, 


R4 


MOV 


( SP ) +, 


R3 


MOV 


(SP)+, 


RO 


RETURN 







I 
I 
< 
I 

I 
I 
i 
i 

€ 
C 

i 
i 
€ 
I 
€ 
I 
< 
i 
i 

i 

4 
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I 

€ 



1 






2 






3 






4 






5 






6 






7 






e 






9 






10 






11 






12 






13 






14 


002210 


010346 


15 


002212 


010446 


16 


002214 


010546 


17 






18 


002216 


010005 


19 


002220 


005000 


20 






21 


002222 


005004 


22 


002224 


071427 000012 


23 


002230 


110546 


24 


002232 


005200 


25 


002234 


010405 


26 


002236 


001371 


27 






28 


002240 


110305 


29 


002242 


160005 


30 


002244 


003407 


31 






32 


002246 


000303 


33 


002250 


105703 


34 


002252 


001002 


35 


002254 


012703 000040 


36 


002260 


110322 


37 


002262 


077502 


38 






39 


002264 


112605 


40 


002266 


062705 000060 


41 


002272 


110522 


42 


002274 


077005 


43 


002276 


105012 


44 






45 


002300 


012605 


46 


002302 


012604 


47 


002304 


012603 


48 


002306 


000207 


49 






50 






51 






52 






53 






54 






55 






56 






57 







SBTTL EDT routines to convert internal to ASCII format 
SBTTL EDTDEC 



Inputs: 

RO number to be converted 

R3 lou) byte min field widths high byte filler char 

Outputs: 

number string is encoded at location pointed to by R2 
R2 left at byte immediately following last digit 
RO is destroyed 



EDTDEC: 


MOV 


R3, -(SP) 






MOV 


R4, -(SP) 






MOV 


R5, -(SP) 


r 




MOV 


RO, R5 






CLR 


RO 


t 


Remainder is in R5 


1* 




CLR 


R4 






DIV 


#10. , R4 






MOVE 


R5, -(SP) 






INC 


RO 






MOV 


R4, R5 






BNE 


1* 


f 


Digi 


ts are 


on stack 






MOVB 


R3, R5 






SUB 


RO. R5 






BLE 


3* 


t 


Didn 


't fill 


fieldi pad mi 






SWAB 


R3 






TSTB 


R3 






BNE 


2* 






MOV 


#40. R3 


2*. 




MOVB 


R3. (R2) + 






SOB 


R5. 2* 


i 


Field is pa 


dded. now retr 


3*: 




MOVB 


(SP)+, R5 






ADD 


#'0. R5 






MOVB 


R5, (R2) + 






SOB 


RO, 3* 






CLRB 


(R2) 


; 


Done 










MOV 


(SP)+, R5 






MOV 


(SP)+, R4 






MOV 


(SP)+, R3 






RETURN 




i 




. SBTTL 


EOTT 



iCopy input value into R5 

; Counter for # of digits used 

i Set for divide 

; Split out low digit R5, quotient in 

i Save binary digit on stack 

; Count a digit saved 

J Copy quotient for next divide 

; Loop until insignificant 



R4 



field width 

minimum field width? 



th 



; Oet minimum 
;Did we fill 
; Br if so 
filler chars 
i <5et filler char to low byte 
J Is there a filler char? 
; Yes, use it 

; If not. fill with spaces 
i Pad with leading filler chars 
; As many as we need 
ieve digits off stack and drop leading O's 
i Get next digit 
j Convert to ascii 
; Stuff into output 
} Thru all digits 
i Always terminate string 



IM 



Convert a 32-bit tick count into HH: MM: SS. T (.1 sec precision) 



Inputs: 

R2 ptr to string output buffer 

R4 time high 

R5 time low 



i 
i 

i 
i 

i 
I 

€ 
€ 

i 

i 

€ 

I 

i 

i 

i 

i 

t 

« 

I 



TSTTY2 - 


— Auxil 


iary terminal co 


' EDTTIM 








58 








' 59 








60 








61 








' 62 








63 


002310 


010046 




64 


002312 


010346 




' 65 


002314 


010446 




66 


002316 


010546 




67 








' 68 








69 








70 








' 71 








72 


002320 


013703 


OOOOOOG 


73 


002324 


070327 


001130 


1 74 


002330 


071403 




75 








76 








f 77 








78 


002332 


010546 




79 


002334 


010405 




€ 80 


002336 


005004 




S^ 


002340 


071427 


000074 


' 82 


002344 


010400 




, 1 S3 


002346 


005003 




84 


002350 


004737 


002210' 


1 85 


002354 


112722 


000072 


1 86 


002360 


010500 




87 


002362 


012703 


030002 


88 


002366 


004737 


002210' 


• 89 


002372 


112722 


000072 


90 


002376 


012605 




91 








1 92 








93 








94 


002400 


005004 




i 95 


002402 


071427 


000074 


96 


002406 


010400 




97 


002410 


004737 


002210' 


C 98 


002414 


112722 


000056 


99 


002420 


005004 




100 


002422 


071437 


OOOOOOG 


i 101 


002426 


062704 


000060 


102 


002432 


110422 




103 


002434 


105012 




i 104 








105 








106 








< 107 


002436 


012605 




108 


002440 


012604 




109 


002442 


012603 




i 110 


002444 


012600 




111 


002446 


000207 




112 








t 113 








114 
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Outputs: 

hh:mm:s5. t encoded at location pointed to by R2 

R2 is left pointing at byte immediately following tenths 



EDTTIM: MOV 
MOV 
MOV 
MOV 



RO, -<SP> 
R3, -<SP) 
R4, -<SP) 
R5, -<SP) 



Start by splitting ticks into two 1-word parts by dividing by 
number of ticks per minute. This leaves two parts which will each 
fit into 1 word <24. *60. =1440. and 60. •k-60. =3600. ) 



MOV 
MUL 
DIV 



TKIVAL, R3 
#600. , R3 

R3, R4 



< Get back # ticks/. 1 sec 
/Convert to # . Is/minute 
J Split time into hrs*min and sec*ticks 



MOV 


R5, -(SP> 


MOV 


R4, R5 


CLR 


R4 


DIV 


#60. , R4 


MOV 


R4, RO 


CLR 


R3 


CALL 


EDTDEC 


MOVE 


#': , <R2) + 


MOV 


R5, RO 


MOV 


#400«'0+2, R3 


CALL 


EDTDEC 


MOVE 


#': , <R2> + 


MOV 


<SP)+, R5 



Now convert to hours and minutes 

; Save sec«ticks 

i Move hrs#min for divide 

i Set for divide 

; Split hours and minutes 

i Get hours 

; Free format 

i Disp lay hours 

; Get minutes 

j Format 2 digits^ leading 

/Display minutes 

i Retrieve seconds and lOths 

Now display seconds and tenths 

; Set for divide 

/Split seconds and ticks 

> Get seconds 

/Display seconds (format still in R3) 

/ Set for divide 

/Split into tenths of seconds 

/Has to be 0-9 

/Always terminate 

Done ! 



CLR 


R4 


DIV 


#60. , R4 


MOV 


R4/R0 


CALL 


EDTDEC 


MOVE 


#'. , <R2) + 


CLR 


R4 


DIV 


TKIVAL/ R4 


ADD 


#'0/R4 


MOVE 


R4/ <R2) + 


CLRE 


(R2) 



MOV 


(SP)+, R5 


MOV 


(SP)+, R4 


MOV 


(SP)+, R3 


MOV 


<SP)+/RO 


RETURN 




. SBTTL 


EDTR50 



Decode RAD50 value to ASCII 



i 

€ 

i 
I 

i 

i 
i 
I 

c 

i 
i 

€ 
€ 
€ 

C 

i 
i 

4 
I 

i 



TSTTY2 - 
EDTR50 - 

115 
116 
117 
IIB 
119 
120 



- Auxiliary terminal co MACRO V05. 05 

- Decode RAD50 value to ASCII 
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121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 



Inputs; 
RO 



Rl 



value to be decoded 
ptr to output location 



002450 
002450 
002452 
002454 
002456 
002460 
002464 
002470 
002472 
002476 
002502 
002506 
002510 
002512 
002514 

002516 



EDTR50: 



010446 
010546 
010005 
005004 
071427 
116422 
005004 
071427 
116422 
116522 
105012 
012605 
012604 
000207 

040 



003100 
002516 

000050 
002516 
002516 



101 



102 R50TBL: 



MOV 

MOV 

MOV 

CLR 

DIV 

MOVB 

CLR 

DIV 

MOVB 

MOVB 

CLRB 

MOV 

MOV 

RETURN 

. NLIST 

. ASC 1 1 

. LIST 

. EVEN 



R4, -<SP) 

R5, -(SP) 

RO, R5 

R4 

#50#50> R4 

R50TBL<R4) 

R4 

#50, R4 

R50TBL<R4) 

R50TBL<R5) 

(R2) 

<SP)+, R5 

<SP)+, R4 



;Copy value to be decoded 

i Set for divide 

iSplit out high letter 
<R2)+ i Decode A., to output 

i Set for next divide 

iSplit middle and last letters 
<R2)+ J Decode . B. to output 
<R2)+ ; Decode . . C to output 

; Aluiays terminate string 



BEX 

/ ABCDEFGHIJKLMNOPQRSTUVWXYZ*. 

BEX 



?01 23456789/ 



( 



TSTTY2 - 


— Auxil 


iary ter 


STATES - 

1 
2 
3 


— Names 


of job 


002566 


003316' 


4 


002570 


002664 ' 


5 


002572 


002664 ' 


6 


002574 


002677 ' 


7 


002576 


002714' 


8 


002600 


002732 ' 


9 


002602 


002752' 


10 


002604 


002770 ' 


11 


002606 


003003 ' 


12 


002610 


003021 ' 


13 


002612 


003021 ' 


14 


002614 


003037 ' 


15 


002616 


003047 ' 


16 


002620 


003047 ' 


17 


002622 


003066 ' 


18 


002624 


003077 ' 


19 


002626 


003110' 


20 


002630 


003121 ' 


21 


002632 


003132' 


22 


002634 


003143' 


23 


002636 


003153' 


24 


002640 


003164' 


25 


002642 


003175' 


26 


002644 


003206 ' 


27 


002646 


003217' 


28 


002650 


003227 ' 


29 


002652 


003240 ' 


30 


002654 


003251 ' 


31 


002656 


003262 ' 


32 


002660 


003274 ' 


33 


002662 


003305 ' 


34 




000036 


35 






36 






37 


002664 


122 


38 


002676 


000 


39 


002677 


124 


40 


002714 


124 


41 


002732 


124 


42 


002752 


111 


43 


002770 


124 


44 


003003 


124 


45 


003021 


111 


46 


003036 


000 


47 


003037 


103 


48 


003047 


114 


49 


003065 


000 


50 


003066 


127 


51 


003077 


127 


52 


003110 


127 


53 


003121 


127 


54 


003132 


127 


55 


003143 


127 


56 


003153 


127 


57 


003164 


127 



minal co MACRO V05. 05 
states 
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SBTTL STATES 



Names of job states 



145 

124 
124 
124 
156 
151 
124 
057 

157 
157 

141 
141 
141 
141 
141 
141 
141 
141 





SNTABL: . WORD 


50* 




i Unknown 


state ! 






. WORD 


1* 




i S*RT 








. WORD 


1* 






i S**RT 






. WORD 


3* 




i S*TTSC 








. WORD 


4* 




i S*TTFN 








. WORD 


5* 




i S*OTFN 








. WORD 


6* 




; S*HICP 








. WORD 


7* 




; S*TWFN 








. WORD 


10* 




; S*OTL.O 








. WORD 


11* 




; S*IOFN 








. WORD 


11* 






i S**HIP 






. WORD 


13* 




; S*CPU 








. WORD 


14* 




i S*LOW 








. WORD 


14* 






; S**RUN 






. WORD 


16* 




; S*NEDQ 








. WORD 


17* 




i S*QMIO 








. WORD 


20* 




; S*QCCB 








. WORD 


21* 




} S*QCXB 








. WORD 


22* 




i S*QUSR 








. WORD 


23* 




;S*IDWT 








. WORD 


24* 




i S*OTWT 








. WORD 


25* 




i S*SFWT 








. WORD 


26* 




; S*WSMB 








. WORD 


27* 




; S*SPDB 








. WORD 


30* 




;S*INWT 








. WORD 


31* 




; S*QSPD 








. WORD 


32* 




i S*SPCB 








. WORD 


33* 




i S*MSWT 








. WORD 


34* 




; S*SPND 








. WORD 


35* 




; S*TMWT 








. WORD 


36* 




; S*WFM 






MXSTAT = <. -SNTABL- 


2: 


t/2 


i Define 




> 


. NLIST 


BEX 








141 


1* 




. ASCIZ 


/Rea 


1- 


-time/ 






2$ 




. ASCIZ 


// 






; S**RT 


137 


3* 




. ASCIZ 


/TT_ 


sng 1 „done/ 




137 


4« 




. ASCIZ 


/TT_ 


_input_.done/ 




137 


5* 




. ASCIZ 


/TT_ 


.output„empty 


/ 


164 


6* 




. ASCIZ 


/Int 


eract comp/ 




155 


7* 




. ASCIZ 


/Timer__done/ 




137 


10* 


. ASCIZ 


/TT 


output., low/ 




117 


11* 


. ASCIZ 


"I/C 


_complBte" 






12* 


. ASCIZ 


// 






i S**HIP 


155 


13* 


. ASCIZ 


/Compute/ 




167 


14* 


. ASCIZ 


/Loui 


_): 


>rio_comp/ 






15* 


. ASCIZ 


// 






i S**RUN 


151 


16* 


. ASCIZ 


/Wai 


t- 


-100/ 




151 


17* 


. ASCIZ 


/Wai 


t- 


-MID/ 




151 


20* 


. ASCIZ 


/Wai 


t- 


-CSH/ 




151 


21* 


. ASCIZ 


/Wai 


t- 


-CXT/ 




151 


22* 


. ASCIZ 


/Wai 


t- 


-USR/ 




151 


23* 


. ASCIZ 


/Wai 


t- 


-10/ 




151 


24* 


. ASCIZ 


/Wai 


t- 


-710/ 




151 


25< 


$ 


. ASCIZ 


/Wai 


t- 


-SHF/ 





j Define last state number uie understand 



TSTTY2 — Auxiliary terminal co MACRO V05. 05 
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58 003175 

59 003206 

60 003217 

61 003227 

62 003240 

63 003251 

64 003262 

65 003274 

66 003305 

67 003316 

68 003326 
69 

70 
71 
72 
Errors detected: 



127 
127 
127 
127 
127 
127 
123 
127 
127 
077 
055 



000001 




141 
141 
141 
141 
141 
141 
165 
141 
141 
123 
123 



151 


26* 


. ASCIZ 


/Wait-SMB/ 


151 


27* 


. ASCIZ 


/Wait-SPF/ 


151 


30* 


. ASCIZ 


/Wait-TI/ 


151 


31* 


. ASCIZ 


/Wait-SDD/ 


151 


32* 


. ASCIZ 


/Wait-SPC/ 


151 


33* 


. ASCIZ 


/Wait-MSG/ 


163 


34* 


. ASCIZ 


/Suspended/ 


151 


35* 


. ASCIZ 


/Wait-TMR/ 


151 


36* 


. ASCIZ 


/Wait-MEM/ 


164 


50* 


. ASCIZ 


/?State?/ 


167 


SWPTXT: .ASCIZ 


/-Swap/ 






. LIST 


BEX 






. EVEN 





END 



*** Assembler statistics 



Work file reads: 
Work file u/rites: 
Size of work file: 
Size of core pool: 
Operating system: 







8342 Words 

18176 Words 

RT~11 



< 33 Pages) 
< 71 Pages) 



Elapsed time: 00:00:20,28 

. LP: TSTTY2=DK: TSTTY2/C/N: SYM 



( 



« 
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*INCOR 


1-29 


12-95 






*INIT 


1-39 


5-47 






*LOFCF 


1-36 


4-17 






*NABRS 


1-35 


2-72 


2-85 




*NOIN 


1-36 


4-19 






*NOINT 


1-31 


7-38 






*NOVLN 


1-36 


4-15 






*RBRK 


1-35 


2-28 


2-90 




*SUCF 


1-36 


4-17 






*VBELL 


1-32 


5-28 






*VNOTT 


1-37 


5-19 


5-84 




ABILEN 


3-19# 








ABITBL 


3-4# 








AB2LEN 


3-36# 








AB2TBL 


3-23# 








ASTBLl 


2-36 


3-5# 


3-19 




ASTBL2 


2-42 


3-24# 


3-36 




AUTSPD 


1-ia 


2-14# 






BLDSTR 


9-24 


12-10# 






CP*STD 


1-33 


7-42 






CQ*CP 


1-34 


7-42* 






CQ*JOB 


1-33 


7-36* 






CQ*PA5 


1-30 


7-44* 






CQ*PRI 


1-33 


7-41* 






CQ*RO 


1-31 


8-37* 






CQ*RNS 


1-33 


7-37* 


7-40* 




CQ*RTN 


1-34 


7-22 


7-43* 




CR 


1-27 


12-15 






CVTLC 


1-31 


8-33 






DELCHR 


1-30 


8-26 






DOCTLT 


1-18 


1-24 


9-18# 




DOSWIT 


1-18 


4-9# 






EDTDEC 


12-22 


12-79 


13-14# 


13-84 


EDTR50 


12-60 


12-63 


13-1 19# 




EDTTIM 


12-53 


12-112 


13-63# 




EMTBLK 


1-32 


7-28 


7-43 




EMTMAP 


1-30 


7-44 






EMTXIT 


1-32 


7-55 






ESC 


1-27 


12-35 






FORCEX 


1-40 


5-87 






FSTSL 


1-37 


4-40 






GETQ 


1-30 


7-34 






GTSMBF 


9-20 


10-9# 






INITLN 


1-37 


4-55 






INTPRI 


1-40 


5-80 


8-22 


8-48 


KPAR6 


1-40 


5-72 


5-72* 


5-79* 


LABTIM 


1-35 


2-22 


2-71* 


2-84* 


LBSPRI 


1-38 


5-85 


6-10 




LCPUHI 


1-29 


12-110 






LCPULO 


1-29 


12-111 






LINNXT 


1-34 


8-19 






LINPNT 


1-30 


8-18 






LINSWT 


1-18 


4-67 


5-ll# 




LMSGBF 


1-27 


11-12 


11-20* 




LMXPRM 


1-35 


2-37 






LNBLKS 


1-28 


12-74 







13-88 13-97 



10-19 10-29 11-22 
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4-63* 5-39 11-11 



LNMAP 


1-39 


5-46* 








LNPRIM 


1-27 


1-36 


4-30 


4-43 


4-58 


LNSBLK 


1-29 


12-75 








LOTBUF 


1-39 


5-73 








LOTEND 


1-39 


5-75 








LOTPNT 


1-39 


5-71 


5-78* 






LOTSPC 


1-39 


5-65 


5-67* 






LPARNT 


1-37 


4-59* 








LPRGl 


1-28 


12-59 








LPRG2 


1-28 


12-61 








LPRI 


1-33 


1-38 


5-85* 


6-21* 


7-41 


LRTCHR 


1-31 


8-31* 








LSECPT 


1-37 


1-37 


4-31 


4-60 


5-43 


LSTATE 


1-29 


12-87 








LSTSL 


1-37 


4-41 








LSW 


1-29 


1-37 


5-19* 


5-47 


5-84* 


LSWIO 


1-35 


2-28 


2-90* 






LSW2 


1-36 


4-15 








LSW3 


1-36 


4-19 








LSW7 


1-31 


7-38 








LSW9 


1-36 


2-72* 


2-85* 


4-17 


5-28* 


LTTCR 


1-32 


7-20 


7-23* 


7-45* 


8-16 


LTTPAR 


1-40 


5-72 








LUNAME 


1-28 


12-31 








LWINDO 


1-38 


5-33 


5-53 






MAPHLD 


l-94# 


5-72* 


5-79 






MXSTAT 


12-88 


14-34# 








NLMSG 


5-68 


5-70* 


5-98# 






NMUMB 


1-26 


10-10 


10-17* 






OVRHC 


1-40 


4-55 


5-35 


5-55 


8-26 


PR7 


1-40 


5-63 


8-15 


10-9 


11-10 


PSW 


1-40 


5-63* 


5-80* 


8-15* 


8-22* 


QCOMPL 


1-34 


8-38 








QCTMSG 


9-26 


11 -7# 








QFREE 


1-30 


7-24 








R50TBL 


13-125 


13-128 


13-129 


13~135# 




S*IOFN 


1-31 


7-40 








S*TTSC 


1-30 


7-37 








SllO 


1-41 


3-33 


3-34 






SI 200 


1-41 


3-17 


3-25 


3-26 


3-27 


SI 50 


1-41 










SI 800 


1-41 










SI 9200 


1-41 


3-5 


3-6 


3-7 


3-8 


S2400 


1-41 


3-15 


3-24 






S300 


1-41 


3-31 








S3600 


1-41 










S4800 


1-41 


3-12 








S600 


1-35 


2-30 


2-43 






S9600 


1-35 


2-40 


2-65 


3-11 




SB*LNK 


1-26 


10-18 


11-14 


11-16 


11-18* 


SB*PNT 


1-26 


9-23 


10-23* 






SB*TXT 


1-26 


10-22 








SETSPD 


1-35 


2-31 


2-66 


2-79 




SNMSHD 


1-26 


10-12 


10-18* 






SNTABL 


12-92 


14-3# 


14-34 






SPACE 


1-27 


12-23 


12-24 


12-42 


12-45 



-95 



8-21* 8-44* 



8-33 

8-48* 10-9* 10-19* 10-29* 11-10* 11-22* 



3-28 3-29 
3-9 3-10 



11-21* 



-46 12-54 12-55 12-64 12-66 12-68 12-69 



( 



( 



< 
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12-102 





12-82 


12-83 


12-101 


SPPRED 


1-18 


5-23 


6~9# 


STTCPL 


1-18 


7-14# 




SWPTXT 


12-97 


14-68# 




SYTIMH 


1-28 


12-51 




SYTIML 


1-28 


12-52 




TKIVAL 


1-29 


13-72 


13-100 


TRNSTR 


1-27 


1-40 


5-86 


TSTTY2 


l-6# 


3-4 


3-23 


TTCPL 


1-18 


7-51 


8-i0# 


URO 


1-30 


7-19« 


7~22^J 


VALADW 


1-32 


7-30 




VPRIHI 


1-38 


6-13 




VPRILO 


1-38 


6-11 


6-17 


VPRIVR 


1-38 


6-15 




WINSF 


1-38 


5-35 




WINST 


1-39 


5-55 





11- 



6-19 



i 
i 

c 

4 

t 
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DISABL l-45# 5-63 B-15 10-9 11-10 

ENABL l-49# 5-80 8-22 8-48 10-19 10-29 11-22 

OCALL l-53# 4-55 5-35 5-55 8-26 8-33 

TTMAP l-83# 5-72 

TTMAPX l-74# 

UNHAP l-88# 5-79 

UNHAPX 1-S0# 



( 



( 



